Š‹«ô PMBASÅDLISÔCB±CB²SET±SET²DRA×ØC¤CMÄQ¤F¤IOCÂCIÏCÈL±TEMÐL²B¤BIT¨ÈÖPCURSOÒPLAYER°ÓS¨BYTÅSCREEÎSETUÐSETMOVÅCLEAÒADDÒBYTE¨PLAYER±PLAYER²PLAYER³ADBXrARAVB‰B™6@AU  @   @ A@@2!@@AaA”BxˆAÁBYA6A`A5BffA ‘!BD"B„#B†V))CHARACTER SET EDITOR - BY DAN PINAL› HIT RESET BEFORE RERUNNING›SO MEMTOP IS RESET›N AF:A,&@*+NRESERVE ROOM FOR 2 CHR SETS & PMG›(b6€-F:A,46-F:A`,%AV$F:Aa,K6‚-F:A,%@b6ƒ-F:A,%@26„-‚$AV6…-ƒ$AV< AF3AY@b!BBy€3B2w@P'A@'AR@Z6†-@d COMMAND›n(SAVE,LOAD, OR EDITx)@‡‚‡"@iAEDIT›Œ-‡"@v6ˆ.L#6‰-@- Ap–-‡"@ƒ6ˆ.S#6‰-@- Ap  A ª( NAME OF FILEŠ´ 6‹.D:Š4Ap¾C3Š7@<@,4:)Š7@<@,4:96‹.ŠC AÈ16‹7@,.Š1OTHERWISE DEFAULT TO DRIVE 1›Ò* AP6Œ-@*Œ‰‹Ü6‡-?:<Œ<„<A$ A0(CHARACTER # TO EDIT OR RETURN4Ž> B@!!Ž )Ž!A'AJ-@T6-F:„%Ž$@%,^‘-@h6‡-$@%‘%@r*6’7‡<‡,.>:@3,*ASSUME BLANK (!)›|1 “8‘, 6’7‡<‡,.>:@4,+6-&“8‘,1(")›† ‘J-@@%J(@’7$@%@<$@%@,š ¤6”-6•-®//(', SPACE BAR TO DRAW OR JOYSTICK¸++(#D=DRAW,U=UNDRAW, CTL CLEAR TO ERASEÂ( ESC TO EXITô<6‡-?:–<”<—%•,$6˜-™8R:,,0˜!<Ad˜ù#(T:,#Ad@3þ F:Ad,"AUA)@‡‡@EAPUP›'6•-•&+•&@,' A&‡@aApDOWN›0'6•-•%+•%@ @,' A:‡@CALEFT›D'6”-”&+”&@,' AN‡@BARIGHT›X'6”-”%+”%@ @,' Ab ‡@(A0 CTL UP›lA6•-•&+•&@,76”-”%+”%@ @,A Av"‡@)AP"CTL DOWN›€A6•-•%+•%@ @,76”-”&+”&@,A AŠ"‡@0Ap"CTL LEFT›”A6•-•&+•&@,76”-”&+”&@,A Až#‡@1A#CTL RIGHT›¨A6•-•%+•%@ @,76”-”%+”%@ @,A A²‡@2ASPACE›¼„=6’7•$@%”%@<•$@%”%@,.>:@3%†,Q-@@%•„(@’7•$@%@<•$@%@,½;6š-#-@;6‡-•$@%%@¾"@:’7‡<‡,,&@3"6š-š%“8,¿# „%Ž$@%•š# AƇ@hA0D›Ð-6†-@#›%@A(- AÚ‡@…APU›ä-6†-#›%@- Aî‡A%ApCLEAR›ø3-@/„%Ž$@%3 ý A0‡@'AESC›æ Aç&è..DLI& SETUP ARE 75 BYTES STARTING AT 1536›òUU104,169,6,162,6,160,11,32,92,228,96,169,48,141,0,2,169,6,141,1,2,169,192,141,14›üXX212,174,254,6,165,20,41,7,208,10,165,20,41,15,240,1,138,141,0,208,76,95,228,72,173›UU255,6,141,9,212,169,67,141,0,2,169,6,141,1,2,104,64,72,169,224,141,9,212,104,64›THIS CIO SUB. IS 49 BYTES›YY104,104,104,10,10,10,10,170,104,157,69,3,104,157,68,3,104,157,73,3,104,157,72,3,104›$XX133,213,104,133,212,160,0,177,212,160,7,201,83,208,2,160,11,152,157,66,3,76,86,228›.HHOPEN #IOCB,IO,0,FILE$:X=USR(CIO,IOCB,BUFADR,BUFLEN,ADR("S" or"L"))›8SET MOVE IS 34 BYTES›BWW104,104,133,212,104,133,213,169,0,133,206,169,224,133,207,162,4,160,0,177,206,145›L44212,200,208,249,230,207,230,213,202,208,242,96›VPCURSOR 41 BYTES›`ZZ104,104,104,10,10,105,56,141,254,6,104,133,213,169,0,133,212,168,145,212,200,208,251›jEE104,10,10,10,105,48,133,212,160,7,169,240,145,212,136,16,251,96›lCLEAR PM AREA SUBROUTINE›n;;104,104,133,213,104,133,212,162,0,160,0,169,0,145,212›p..200,208,251,230,213,232,224,8,144,240,96›tG6œ-A66-œ%@u+6-%@I96–-%@4G6ž-–%@A~%-A6A`"‡!‡% ˆAVƒA‘‚’6‡-?:<‚,6‡-?:<ƒ,œ-……%@#¦"‡ ‡ °+%@A0+%@$A0º›Ä 6‡-?:œ,ΛØ0,0,0,0,0,0,0,0›â%%255,129,129,129,129,129,129,255›ì%%255,129,189,189,189,189,129,255›ö'A@'AR@! @3!-@@  ,@/@  ))6›-F:%@,%AV$F:%@,(!!6Ÿ-›%@@$@%@2+-@+‘-@1<!Ÿ$@2%‘!6Ÿ-Ÿ%@F ‘6Ÿ-Ÿ%@ P##@@K:ZRR‹;@,Š;@,ˆ;@,’;@d,“9@, 9@,™9@,d+ 6’.!6’7@d,.!+6’7@,.’n«6“8,-A(-6“8@,-@dB6“8@,-@2W6“8@,-@l6“8@,-@6“8@,-@–6“8@,-@«6“8@,-@x*-@&6™8,-* ‚B6™8@,-A5-6™8@,-ABB6™8@,-@ŒD6™8@ ,-AC/6™8@,-+A4,D6™8@,-@–-6™8@,-@-6™8@,-@ KA@'A@p9A@pKA@p¥&6‡-?:ž<€$AV,&CLEAR PM AREA›ªC6—-€$AV%A$'6¡-—%AV56¢-¡%AVC6£-¢%AV´-@DA¾#¢%@£%@# ÈG-@-¡%@D%AUC¡%A%AUG ÒKB2W@'B2I@V9B2P@HKB2Q@„Ü$€ D:CHSETED.BAS